EscapeRoom

PROGRAM BalastTank_PRG
VAR
	xInit				: BOOL := FALSE; // Flag for initialization
IF NOT xInit THEN		
	BalastTankPuzzle.ID := 1;
	BalastTankPuzzle.Name := 'Balast Tank Puzzle';
IF xActingStateComplete AND puzzle.ActualState = PACK_ML.State.Execute THEN
	puzzle.StateComplete();
puzzle(Client := BalastTankPuzzle);